home *** CD-ROM | disk | FTP | other *** search
/ Univers Interactif 3 / INTERACTIF.BIN / pc / planeten / internet / macslip2.6up / MacSLIP Folder / sample.script < prev    next >
Text File  |  1995-01-11  |  8KB  |  318 lines
  1. #
  2. # Sample.script
  3. #
  4. # This is a generic script for logging into a SLIP server
  5. # You may need to modify it to work with your SLIP server or
  6. # use one of the more specific scripts.
  7. #
  8. # This script is designed to dial a Hayes compatible modem.
  9. #
  10. # The first time this script runs, it will prompt for your username,
  11. # password, and phone number to dial. These settings will be saved
  12. # for subequent connections.
  13. #
  14. # Using default settings, the modem will be initialized before this script
  15. # starts running. Make sure the "Init modem when connecting" option
  16. # is set in the "Modem" menu and that you have made an appropriate
  17. # modem selection.
  18. #
  19. ignore var busygo
  20.  
  21. # If user is not defined, ask for it.
  22. ifdef user goto skipuser
  23. message ""
  24. message "\bEnter your login username."
  25. ask var
  26. define user "$var"
  27. label skipuser
  28.  
  29. # if password is not defined, ask for it
  30. ifdef password goto skippass
  31. message "Will login to SLIP server as $user.\n\bPassword:"
  32. askp var
  33. define /h password "$var"
  34. label skippass
  35.  
  36. # if phone is not defined, ask for it
  37. ifdef phone goto skipphone
  38. message "\bEnter the phone number to dial"
  39. ask var
  40. define phone "$var"
  41. label skipphone
  42.  
  43. # Let the user know we're starting up
  44. label startup
  45. message "Script starting..."
  46. # Setup action handlers
  47. on restart goto restart
  48. on abort goto abort
  49.  
  50. # Dial the phone and wait for the terminal server to send its login
  51. # banner. Some areas support using *70 as a dialing prefix to suppress
  52. # call-waiting tones which will probably cause your modem
  53. # to lose the connection. Some terminal servers may require you to
  54. # autobaud before they will respond. Allow enough time for the modem
  55. # handshake to complete.
  56.  
  57. label dial
  58.  
  59. ifdef INITMODEM goto skipwarn
  60. beep
  61. message "\bYou should select a modem using Configure"
  62. label skipwarn
  63.  
  64. message "Dialing $phone..."
  65. flush
  66. on abort goto hangupabort
  67. send "ATDT $phone\r"
  68. {
  69.     ifmatch "name:" break
  70.     ifmatch "ogin:" break
  71.     ifmatch "NO DIALTONE" goto nodialtone
  72.     ifmatch "NO DIAL TONE" goto nodialtone
  73.     ifmatch "BUSY" goto phonebusy
  74.     ifmatch "NO CARRIER" goto nocarrier
  75.     iftime 1:15 goto dialtimeout
  76. }
  77.  
  78. # Log into the SLIP server. Try three times to send the username. Use
  79. # counter #1 to count the number of login attempts.
  80.  
  81. setcount 1 0
  82. label login
  83. ifcountgt 1 3 goto cantlogin
  84. message "Logging in as $user..."
  85. setcount 0 0
  86. label user
  87. flush
  88. ifcountgt 0 3 goto baduser
  89. send "$user\r"
  90. {
  91.     ifmatch "ssword:" break
  92.     ifmatch "name:" goto user
  93.     ifmatch "ogin:" goto user
  94.     iftime 10 goto baduser
  95. }
  96.  
  97. # Send the password and wait for the prompt. If we see the
  98. # username prompt again, then we didn't get logged in so try again.
  99.  
  100. message "Sending password..."
  101. flush
  102. send "$password\r"
  103. {
  104.     ifmatch ">" goto setslip
  105.     ifmatch "%" goto setslip
  106.     ifmatch "Access denied" goto accessdenied
  107.     ifmatch "incorrect" goto accessdenied
  108.     iftime 10 goto cantlogin
  109. }
  110.  
  111. # If the login attempt fails, we land here.
  112.  
  113. label accessdenied
  114. {
  115.     ifmatch "name:" goto login
  116.     ifmatch "ogin:" goto login
  117.     ifmatch "NO CARRIER" goto cantlogin
  118.     iftime 10 goto cantlogin
  119. }
  120.  
  121. # NOTE: You may wish to issue additional commands here before
  122. # enabling SLIP on your server.
  123.  
  124. # Enable SLIP.
  125. # In this generic script, you may have to issue a different command
  126. # here for your script server. Here, we just send "slip\r". You may
  127. # also need to match something other than "SLIP" to detect
  128. # that your slip command succeeded.
  129.  
  130. label setslip
  131. message "Enabling SLIP mode on server..."
  132. flush
  133. send "slip\r"
  134. # Use the following line instead for a Cisco terminal server
  135. # send "slip default\r"
  136. # Your slip server may also require you to specify an address:
  137. # send "slip 10.2.3.4\r"
  138. {
  139.     ifmatch "SLIP" break
  140.     ifmatch "beginning" break
  141.     ifmatch "start" break
  142.     iftime 10 goto cantstartslip
  143. }
  144.  
  145. # Uncomment one of the following "ipfind" lines if your server doesn't 
  146. # support BOOTP, but outputs your IP address in its response to 
  147. # the slip command. To uncomment the line, delete the leading
  148. # hashmark and space: "# "
  149. #
  150. # Uncomment the following line if your server only outputs the
  151. # your IP address. ex: "Slip connection to 10.2.3.4 beginning".
  152. # ipfind IPADDRESS
  153. # 
  154. # Uncomment the following line if your server outputs both, 
  155. # ex: "Slip session from 10.2.3.1 to 10.2.3.4 beginning"
  156. # ipfind IPGWADDRESS IPADDRESS
  157. # 
  158. # Uncomment this line if your server doesn't display the
  159. # gateway address as in the first ipfind command, or if 
  160. # your gateway address and your IP address aren't on the same subnet. 
  161. # set IPGWADDRESS $IPADDRESS
  162.  
  163. # All done.  Send message to alert the user, flush the junk out of the
  164. # receive buffer, and return success.
  165.  
  166. message "Script complete"
  167. flush
  168. return 1
  169.  
  170. # Error handlers.
  171.  
  172. label abort
  173. beep
  174. message "\bCommand-. seen or Cancel button clicked."
  175. goto aborted
  176.  
  177. label hangupabort
  178. beep
  179. message "\bCommand-. seen or Cancel button clicked."
  180. goto hangup
  181.  
  182. label cantfindmodem
  183. beep
  184. message "\bThe modem didn't respond to attention"
  185. message "\bbsignal.  Check modem and cabling."
  186. goto aborted
  187.  
  188. label cantinitmodem
  189. beep
  190. message "\bThe modem didn't respond to initialization"
  191. message "\bstring.  Check the modem."
  192. goto aborted
  193.  
  194. label nodialtone
  195. beep
  196. message "\bThe modem could not detect a dialtone."
  197. message "\bCheck the phone line."
  198. goto aborted
  199.  
  200. label phonebusy
  201. flush
  202. message "\bThe number $phone is busy."
  203. if $busygo eq "go" goto redial
  204. on restart goto busygo
  205. beep
  206. message "\bClick "Restart" to keep trying, "OK" to quit."
  207. ask junk
  208. return 0
  209.  
  210. label busygo
  211. on restart goto restart
  212. set busygo "go"
  213. flush
  214. label redial
  215. do syncmodem
  216. goto dial
  217.  
  218. label nocarrier
  219. beep
  220. message "\bThe modem could not establish a connection."
  221. message "\bMake sure there is a modem on the other end."
  222. goto aborted
  223.  
  224. label dialtimeout
  225. message "\bThe modem or SLIP server isn't responding."
  226. message "\bTry dialing manually to make sure the modem"
  227. message "\band SLIP server are OK."
  228. goto aborted
  229.  
  230. label baduser
  231. beep
  232. message "\bThe SLIP server won't accept a username."
  233. message "\bTry dialing manually to make sure the SLIP"
  234. message "\bserver is OK."
  235. goto hangup
  236.  
  237. label cantlogin
  238. beep
  239. message "\bLogin to SLIP server failed, check username"
  240. message "\band password."
  241. goto hangup
  242.  
  243. label cantsetterm
  244. beep
  245. message "\bCan't set terminal line for SLIP operation."
  246. goto hangup
  247.  
  248. label cantstartslip
  249. beep
  250. message "\bCan't put server into SLIP mode."
  251. goto hangup
  252.  
  253. # General back-end for bailing out.
  254.  
  255. label hangup
  256. do disconnect
  257. # fallthrough into aborted
  258.  
  259. label aborted
  260. message "\bScript aborted!"
  261. message "\bClick "OK" to quit, "Restart" to retry."
  262. # This activates the OK button.
  263. ask junk
  264. flush
  265. return 0
  266.  
  267. # Restart procedure.
  268. # This label is entered when you click the restart button in the
  269. # connection dialog. We try to force the modem to hang up, then we go back
  270. # to the start of the script.
  271.  
  272. label restart
  273. do disconnect
  274. message "\bScript restarted."
  275. goto startup
  276.  
  277. # Disconnect procedure. The "disconect" procedure is called by MacSLIP
  278. # when the "Disconnect" button is clicked. This procedure escapes the
  279. # modem into command mode and hangs up the phone. The +++ escape sequence
  280. # is surrounded by delays that some modems require.
  281.  
  282. label disconnect
  283. send "\d\d+++\d\dATH\r\d\d"
  284. do syncmodem
  285. return 1
  286.  
  287. # Alternate disconnect procedure for modems that drop into command mode
  288. # when DTR is dropped. You may want to try this alternate disconnect
  289. # procedure if the one above doesn't work for your modem. Just swap the
  290. # labels to use this one instead of the one above.
  291.  
  292. label disconnect2
  293. dtr off
  294. delay 3
  295. send "ATH\r"
  296. dtr on
  297. flush
  298. return 1
  299.  
  300. # Attempt to sync up with the modem, but don't wait forever.
  301. label syncmodem
  302. setcount 4 0
  303. flush
  304. label waitmodem2
  305. ifcountgt 4 2 return
  306. send "AT\r"
  307. {
  308.     ifmatch "OK" break
  309.     iftime 2 goto waitmodem2
  310. }
  311. flush
  312. return
  313.  
  314. # for Emacs
  315. #  Local Variables:
  316. #  tab-width: 4
  317. #  End:
  318.